{$CLEO}

0000:
 //make gxt
0ADF: add_dynamic_GXT_entry "ite1" text "dv hax v1.2" //logo
0ADF: add_dynamic_GXT_entry "ite2" text "~1~/~1~" //items info
0ADF: add_dynamic_GXT_entry "item1" text "add gxt" //items info
0ADF: add_dynamic_GXT_entry "item2" text "add gxt" //items info
0ADF: add_dynamic_GXT_entry "item3" text "add gxt" //items info
0ADF: add_dynamic_GXT_entry "item4" text "add gxt" //items info
0ADF: add_dynamic_GXT_entry "item5" text "add gxt" //items info
0ADF: add_dynamic_GXT_entry "item6" text "add gxt" //items info
0ADF: add_dynamic_GXT_entry "item7" text "add gxt" //items info
0ADF: add_dynamic_GXT_entry "item8" text "add gxt" //items info                            
0ADF: add_dynamic_GXT_entry "item9" text "add gxt" //items info                            
0ADF: add_dynamic_GXT_entry "itema" text "add gxt" //items info           
     
//load org footer                                                                                      
if 0AAB: file_exists "models\txd\ld_shtr.txd"                                                          
then                                                                                                   
    0390: load_txd_dictionary 'ld_shtr'                                                                
    038F: load_texture "splsh" as 1 // Load dictionary with 0390 first                                 
else end_thread
end                                                                                                    
                                                                                                      
const                                                                                                  
   pos_x       = 1@                                                                                          
   pos_y       = 2@                                                                                     
   max_items   = 3@                                                                                     
   spacing     = 4@                                                                                            
   box_size_x  = 5@                                                                                            
   max_items   = 6@                                                                                     
   count       = 7@                                                                                     
   gpos_y      = 8@                                                                                     
   cath        = 11@                                                                                    
   items       = 15@                                                                                    
   foter_style = 12@                                                                                   
   pos_ya      = 13@                                                                                   
   box_size_y  = 14@                                                                                   
end                                                                                                    
                                                                                                       
var                                                                                                    
   count:int                                                                                           
   items:int                                                                                           
   pos_y:float                                                                                         
   gpos_y:float                                                                                        
   spacing:float                                                                                       
   max_items:int                                                                                       
   box_size_y:float                                                                                    
   spacing:float                                                                                       
   pos_ya:float                                                                                        
   box_size_x:float                                                                                    
   pos_x:float                                                                                         
end                                                                                                    
            
:Menux                                                                                                                                               
repeat                                                                                                                                               
wait 0                                                                                                                                               
until if 00E1:   player 0 pressed_key 17 //ctrl                                                                                                            
items = 1                                                                                                                                            
                                                                                                                                                     
while true                                                                                                                                           
    wait 0                                                                                                                                           
    pos_x       = 90.0                                                                                                                                     
    pos_y       = 70.0                                                                                                                                     
    max_items   = 10                                                                                                                                   
    spacing     = 15.0                                                                                                                                   
    box_size_x  = 1.5                                                                                                                                 
    box_size_x *= 85.0                                                                                                                              
    foter_style = 2                                                                                                                                  
    for count = 0 to max_items step 1                                                                                                                
        if count == 0                                                                                                                                
        then                                                                                                                                         
            box_size_y = spacing                                                                                                                     
            box_size_y *= 3.0                                                                                                                        
            gpos_y = pos_y                                                                                                                           
            gpos_y -= spacing                                                                                                                        
            if foter_style == 1                                                                                                                      
            then                                                                                                                                     
                038E: draw_box_position pos_x gpos_y size box_size_x box_size_y RGBA 0 0 0 250                                                       
                gpos_y -= 4.0                                                                                                                        
                0342: set_text_draw_centered 1                                                                                                       
                0343: set_text_draw_linewidth 640.0                                                                                                  
                033F: set_text_draw_letter_size 0.6 1.0                                                                                              
                033E: set_draw_text_position pos_x gpos_y GXT "ITE1"  // Push                                                                        
            else                                                                                                                                     
                038E: draw_box_position pos_x gpos_y size box_size_x box_size_y RGBA 0 200 0 150                                                     
                038D: draw_texture 1 position pos_x gpos_y size box_size_x box_size_y RGBA 128 128 128 255                                           
            end                                                                                                                                      
        end                                                                                                                                          
        if count > 0                                                                                                                                 
        then                                                                                                                                         
            038E: draw_box_position pos_x pos_y size box_size_x spacing RGBA 0 0 0 150                                                               
            //                                                                                                                                       
            if count == items                                                                                                                        
            then 038E: draw_box_position pos_x pos_y size box_size_x spacing RGBA 255 255 255 155                                                    
            end                                                                                                                                      
            pos_ya = pos_y                                                                                                                           
            pos_ya -= 4.0                                                                                                                            
            0AD3: 9@v = format "item%x" count                                                                                                         
            060D: draw_text_shadow 1 rgba 0 0 0 255                                                                                                  
            081C: draw_text_outline 1 RGBA 0 0 0 255                                                                                                 
            0342: set_text_draw_centered 1                                                                                                           
            0343: set_text_draw_linewidth 640.0                                                                                                      
            033F: set_text_draw_letter_size 0.3 0.8                                                                                                  
            033E: set_draw_text_position pos_x pos_ya GXT 9@v  // Push                                                                               
        end                                                                                                                                          
        if count == max_items                                                                                                                        
        then                                                                                                                                         
            gpos_y = pos_y                                                                                                                           
            gpos_y += spacing                                                                                                                        
            038E: draw_box_position pos_x gpos_y size box_size_x spacing RGBA 0 200 0 150                                                            
            060D: draw_text_shadow 1 rgba 0 0 0 255                                                                                                  
            081C: draw_text_outline 1 RGBA 0 0 0 255                                                                                                 
            //0342: set_text_draw_centered 1                                                                                                         
            0343: set_text_draw_linewidth 640.0                                                                                                      
            033F: set_text_draw_letter_size 0.3 0.8                                                                                                  
            pos_ya = gpos_y                                                                                                                          
            pos_ya -= 4.0                                                                                                                            
            pos_x = box_size_x                                                                                                                       
            pos_x /= 2.0                                                                                                                             
            pos_x += 60.0                                                                                                                            
            045B: draw_text_2numbers pos_x pos_ya GXT 'ITE2' numbers items max_items                                                                 
        end                                                                                                                                          
        pos_y += spacing                                                                                                                             
     end                                                                                                                                             
     03F0: enable_text_draw 0                                                                                                                        
     0494: get_joystick 0 direction_offset_to $Move_Axis_X $Move_Axis_Y $Special_Axis_X $Special_Axis_X                                                    
     if and                                                                                                                                          
        $Move_Axis_y > 0                                                                                                                             
        cath == false                                                                                                                                
     then cath = true                                                                                                                                
         if items == max_items                                                                                                                           
         then items = 1                                                                                                                              
         else items += 1                                                                                                                             
             018C: play_sound 1135 at 0.0 0.0 0.0                                                                                                    
         end                                                                                                                                         
     end                                                                                                                                             
     if and                                                                                                                                          
        0 > $Move_Axis_y                                                                                                                             
         cath == false                                                                                                                               
     then cath = true                                                                                                                                
         if items == 1                                                                                                                               
         then items = max_items                                                                                                                         
         else items -= 1                                                                                                                             
             018C: play_sound 1135 at 0.0 0.0 0.0                                                                                                    
         end                                                                                                                                         
     end                                                                                                                                             
     if and                                                                                                                                                           
         80E1:   player 0 pressed_key 15                                                                                                                              
         not  $Move_Axis_y > 0                                                                                                                                        
         not 0 > $Move_Axis_y                                                                                                                        
         80E1:   player 0 pressed_key 16                                                                                                                              
     then cath = false                                                                                                                                               
     end                                                                                                                                             
     if and                                                                                                                                          
        00E1:   player 0 pressed_key 16                                                                                                              
        cath == false                                                                                                                                
     then cath = true                                                                                                                                
         if items == 1                                                                                                                               
         then                                                                                                                                        
                                                                                                                                                     
         end                                                                                                                                         
         if items == 2                                                                                                                               
         then                                                                                                                                        
                                                                                                                                                     
         end                                                                                                                                         
         if items == 3                                                                                                                               
         then                                                                                                                                        
                                                                                                                                                     
         end                                                                                                                                         
         if items == 4                                                                                                                               
         then                                                                                                                                        
                                                                                                                                                     
         end                                                                                                                                         
         if items == 5                                                                                                                               
         then                                                                                                                                        
                                                                                                                                                     
         end                                                                                                                                         
         if items == 6                                                                                                                               
         then                                                                                                                                        
                                                                                                                                                     
         end                                                                                                                                         
         if items == 7                                                                                                                               
         then                                                                                                                                        
                                                                                                                                                     
         end                                                                                                                                         
         if items == 8                                                                                                                               
         then                                                                                                                                        
                                                                                                                                                     
         end                                                                                                                                         
         if items == 9                                                                                                                               
         then                                                                                                                                        
                                                                                                                                                     
         end                                                                                                                                         
         if items == 10                                                                                                                              
         then                                                                                                                                        
                                                                                                                                                     
         end                                                                                                                                         
     end                                                                                                                                             
 end                                   